xerox WManControl.mesa Oct77 free download

File name WManControl.mesa_Oct77.pdf

WManControl.mesa 26-0CT-77 15:24:43 Page 1 --File: WManControl.mesa --Edited by Sandman October 7. 1977 9:14 AM DIRECTORY AltoDafs: FROM "altodefs". ControlDefs: FROM "controldefs". DoubleDefs: FROM "doubledefs". SegmentDefs: FROM "segmentdefs". SystemDefs: FROM "systemdefs". StringOefs: FROM "stringdefs". StreamOefs: FROM "streamdefs". InlineDefs: FROM "inlinedefs". IODefs: FROM "iodefs". KeyDefs: FROM "keydefs". MenuDefs: FROM "menudefs". RectangleDefs: FROM "rectangledefs". WindowDefs: FROM "windowdefs". WManagerDefs: FROM "wmanagerdefs"; DEFINITIONS FROM MenuDefs. StreamDefs. RectangleDefs. WindowDefs. WManagerDefs; WManControl: PROGRAM IMPORTS DoubleDefs, SegmentOefs, SystemDefs, StringDefs, StreamDefs, RectangleDefs, WindowDefs, WManagerDefs EXPORTS WManagerDefs SHARES WManagerDefs, StreamDefs, MenuDefs = BEGIN WMState: WMDataHandle; --external proc --global data CursorA. CursorB, CursorC, CursorD, CursorE, CursorF, CursorG, CursorH, CursorI: ARRAY[O .. 15] OF INTEGER; -- Window Manager Main Control Routine WindowManager: PUBLIC PROCEDURE = BEGIN OPEN WMState; -- Declare Locals x, y,i: INTEGER; k: KeySet; char: UNSPECIFIED; mousewindow: WindowHandle; buttons: AMouseButton; cw: WindowHandle ~ GetCurrentDisplayWindow[]; ds: DisplayHandle; -- check if need to service KeyStream IF cw.ks # defaultks AND NOT cw.ks.endof[cw.ks] THEN FOR i IN [0 .. maxscraLch) DO ENABLE StreamDefs.StreamError =) EXIT; IF scratchfiles[i] = cw.file THEN BEGIN ReadEditChar[cw.ks.get[cw.ks], cw]; EXIT ; END; ENDLOOP; cw ~ GetCurrentDisplayWindow[]: -- check if some part of cursor is in jump bar [x, y] ~ CursorToRectangleCoords[cw.rectangle. xcursorloc t , ycursorloc t ]: IF x+slop ) a AND x (; JumpStrip + CursorXAdjust[] AND y+slop ) a AND y-slop (= cw.rectangle.ch TH[N SetJumpStripe[cw, TRUE] ELSE SetJumpStripe[cw, FALSE]: -- check mouse buttons buttons ~ GetMouseButton[]: -- look at the mouse and flip from one to the other cw ~ GetCurrentDisplayWindow[ I StreamOefs.StreamError ;) CONTINUE]; [mousewindow. x. y] ~ findDisplayWindow[xcursorloct. ycursorloc t ! SlreamDefs.Streamfrror ;) CONTINU[]; H cw # mousewindow AND mousewindow # NIL AND buttons # None THEN BrGIN SetCurrentDisplayWindow[mousewindow I SegmentOefs.InvalidrP ;) BEGIN SetFileforWindow[mousewindow, mousewindow.name I SegmenlDefs.FileNameError =) B[GIN WManControl.mesa 25-0CT-77 15:24:43 Page 2 AlterWindowType[mousewindow, mousewindow.type, NIL]; CONTINUE; END ]; RETRY; END